10 S = 0: KOL = 0: F= 1
20 WHILE F <> 0 AND S > -1000
30 INPUT "Очередное число ="; X
40 IF X < 0 THEN S = S + X: KOL = KOL + 1
50 INPUT "Продолжаем ввод? (1 - да, 0 - нет)"; F
60 WEND
70 IF KOL > 0 THEN PRINT "Среднее арифметическое отрицательных чисел равно"; S / KOL
80 IF KOL = 0 THEN PRINT "Отрицательных чисел нет."
90 END